home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / emacs.rc < prev    next >
Text File  |  1994-10-11  |  1KB  |  60 lines
  1. ;-----------------------------------------
  2. ; Emacs.rc for MicroEmacs 3.10 Ko ver.3
  3. ;    1990 8-24  by 小笠原博之
  4. ;    1991  5-06 for Ko-MicroEMACS K0
  5. ;    1991  8-30 for Ko-MicroEMACS K1
  6. ;    1991 12-09 for Ko-MicroEMACS K2
  7. ;    1993  5-22 for Ko-MicroEMACS K2.1
  8. ;    1994 10-11 for Ko-MicroEMACS K3
  9. ;-----------------------------------------
  10. ;
  11. set $discmd FALSE
  12. print    "[ EMACS mode ]"
  13. set $makbak    FALSE    ;.bak作成
  14. set $disnum    FALSE    ;行番号
  15. set $dispcr    TRUE    ;改行記号
  16. set $hscroll    TRUE    ;水平scroll
  17. set $sscroll    FALSE    ;Smooth scroll
  18. set $hjump    8    ;水平scroll8字毎
  19. add-global-mode "EXACT"    ;検索時大文字小文字区別
  20. ; 縦方向に行単位でスクロールさせたい場合は set $sscroll TRUE にセットして下
  21. ; さい。
  22. ;
  23. ; CTRL-L でカーソル行を画面中心に書き直したい場合、次の行の ';' を取って下さい
  24. ;bind-to-key    redraw-display    ^L
  25. ;
  26. ;●CMODE/WRAP設定●
  27. 40 store-macro
  28.     set %rdtmp &sin $cfname "."
  29.     !if &equ %rdtmp 0
  30.         !return
  31.     !endif
  32.     set %rdtmp &low &mid $cfname &add %rdtmp 1 5
  33.     !if &or &seq %rdtmp "c" &seq %rdtmp "h"
  34.         add-mode "cmode"
  35.     !endif
  36.     !if &or &seq %rdtmp "doc" &seq %rdtmp "txt"
  37.         add-mode "wrap"
  38.         set $fillcol 76
  39.     !endif
  40. !endm
  41. set $bufhook    execute-macro-40
  42. ;
  43. 36 store-macro
  44.     set-mark
  45.     end-of-word
  46.     set %rdtmp $region
  47.     !if &equ $curchar 46
  48.         end-of-word
  49.         set %rdtmp $region
  50.     !endif
  51.     goto-mark
  52.     find-file %rdtmp
  53. !endm
  54. ;
  55. 9 store-macro
  56.     help
  57. !endm
  58. ;●●
  59. set $discmd TRUE
  60.